home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / strdct.zip / STRDCT.PRG < prev    next >
Text File  |  1991-01-24  |  611b  |  34 lines
  1. SET TALK OFF
  2. SET STAT OFF
  3. CLEAR
  4. LOAD strdctia
  5. LOAD strdctid
  6. LOAD strdctca
  7. LOAD strdctcd
  8.  
  9. USE strdct
  10.  
  11. ? "Case Insensitive Ascending Dictionary"
  12. SET ORDER TO strdctia
  13. LIST testfield,CALL("strdctia",testfield+"")
  14. WAIT
  15.  
  16. CLEAR
  17. ? "Case Insensitive Descending Dictionary"
  18. SET ORDER TO strdctid
  19. LIST testfield,CALL("strdctid",testfield+"")
  20. WAIT
  21.  
  22. CLEAR
  23. ? "Case Sensitive Ascending Dictionary"
  24. SET ORDER TO strdctca
  25. LIST testfield,CALL("strdctca",testfield+"")
  26. WAIT
  27.  
  28. CLEAR
  29. ? "Case Sensitive Descending Dictionary"
  30. SET ORDER TO strdctcd
  31. LIST testfield,CALL("strdctcd",testfield+"")
  32. WAIT
  33.  
  34.